`as.distribution` <-
function(x,...)UseMethod("as.distribution")

